MacFormat 1997 March/macformat-048.iso/Demos/Musee d'Orsay/ORSAY/DATAOR/LOGO.DXR/00036.ls

Text File | 1996-06-17 | 278 b | 19 lines

on waitForSound channel
  if soundBusy(channel) then
    go(the frame)
  end if
end

on wait wichtime
  set timedeb to the timer
  repeat while (the timer - timedeb) < (wichtime * 60)
    if the mouseDown then
      quit()
    end if
  end repeat
end

on mouseDown
  quit()
end